## Warning: package 'tidyverse' was built under R version 4.0.5
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.4     v purrr   0.3.4
## v tibble  3.1.0     v dplyr   1.0.6
## v tidyr   1.1.3     v stringr 1.4.0
## v readr   1.4.0     v forcats 0.5.1
## Warning: package 'tibble' was built under R version 4.0.5
## Warning: package 'tidyr' was built under R version 4.0.5
## Warning: package 'readr' was built under R version 4.0.5
## Warning: package 'purrr' was built under R version 4.0.5
## Warning: package 'dplyr' was built under R version 4.0.5
## Warning: package 'stringr' was built under R version 4.0.5
## Warning: package 'forcats' was built under R version 4.0.5
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
## Warning: package 'data.table' was built under R version 4.0.5
## 
## Attaching package: 'data.table'
## The following objects are masked from 'package:dplyr':
## 
##     between, first, last
## The following object is masked from 'package:purrr':
## 
##     transpose
## Warning: package 'readxl' was built under R version 4.0.5
## [1] "tbl_df"     "tbl"        "data.frame"
## tibble[,20] [128 x 20] (S3: tbl_df/tbl/data.frame)
##  $ Código Dane                  : num [1:128] 1.08e+11 1.08e+11 1.08e+11 1.08e+11 1.08e+11 ...
##  $ IED                          : Factor w/ 130 levels "ESC NORMAL SUPERIOR LA HACIENDA",..: 125 36 45 109 64 14 44 43 85 119 ...
##  $ CAT                          : Factor w/ 5 levels "A","A+","B","C",..: 4 2 2 3 4 5 5 5 2 3 ...
##  $ Focalización                 : Factor w/ 4 levels "APE","GRUPO 5",..: 3 3 3 1 1 3 3 3 4 1 ...
##  $ MAPSI                        : Factor w/ 2 levels "NO","SÍ": 2 2 2 1 1 2 2 2 1 1 ...
##  $ APE                          : Factor w/ 2 levels "NO","SÍ": 1 1 1 2 2 1 1 1 1 2 ...
##  $ GRUPO 5                      : Factor w/ 2 levels "NO","SÍ": 1 1 1 1 1 1 1 1 1 1 ...
##  $ Promedio puntaje global S2021: num [1:128] 149 256 228 189 188 ...
##  $ Promedio lectura crítica 2021: num [1:128] 28.4 50.4 51.6 37.3 43.1 ...
##  $ Promedio matemáticas s2021   : num [1:128] 40.4 62.4 52.5 39.7 45.7 ...
##  $ Promedio sociales s2021      : num [1:128] 26 48.5 45.7 39.7 33.4 ...
##  $ Promedio naturales s2021     : num [1:128] 24.4 40.5 34.5 32.3 26.4 ...
##  $ Promedio inglés s2021        : num [1:128] 31.2 58.7 39.7 45.5 42.9 ...
##  $ Promedio puntaje global S2020: num [1:128] 244 320 289 248 247 ...
##  $ Promedio lectura crítica 2020: num [1:128] 48.8 64.1 61 57.2 53.8 ...
##  $ Promedio matemáticas s2020   : num [1:128] 40.6 46.2 40.1 38.5 54.1 ...
##  $ Promedio sociales s2020      : num [1:128] 37 41.3 37.3 36 48.1 ...
##  $ Promedio naturales s2020     : num [1:128] 26.2 34.3 35.2 32.2 40.1 ...
##  $ Promedio inglés s2020        : num [1:128] 36.4 31.7 48 41 62.1 ...
##  $ DIF PG                       : num [1:128] -94.6 -64.6 -60.8 -58.8 -58.7 ...
##  - attr(*, "na.action")= 'omit' Named int [1:2] 129 130
##   ..- attr(*, "names")= chr [1:2] "129" "130"
##  [1] "Código Dane"                   "IED"                          
##  [3] "CAT"                           "Focalización"                 
##  [5] "MAPSI"                         "APE"                          
##  [7] "GRUPO 5"                       "Promedio puntaje global S2021"
##  [9] "Promedio lectura crítica 2021" "Promedio matemáticas s2021"   
## [11] "Promedio sociales s2021"       "Promedio naturales s2021"     
## [13] "Promedio inglés s2021"         "Promedio puntaje global S2020"
## [15] "Promedio lectura crítica 2020" "Promedio matemáticas s2020"   
## [17] "Promedio sociales s2020"       "Promedio naturales s2020"     
## [19] "Promedio inglés s2020"         "DIF PG"

Puntaje Global

Comparación del puntaje global de 2020 vs 2021 de las IEDs para las que se tiene resultado por el momento.

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
## -94.560 -30.492 -21.420 -18.401  -4.625  78.130
## Warning: package 'plotly' was built under R version 4.0.5
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout

Puntaje global 2021

IED de menor a mayor según puntaje global del simulacro 2021.

Puntajes bajos

  1. IEDs con puntajes por debajo de 160
## [1] 200.1084
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   126.6   174.7   195.7   200.1   218.4   339.6

  1. IEDs con puntajes entre 161 y 180 puntos.

  1. IEDs con puntajes entre 181 y 200.

Puntajes medios

1.IEDs con puntajes entre 201 y 250.

Puntajes altos

IEDs con puntajes mayores de 251 puntos.

Diferencia puntaje global simulacro 2020 VS 2021

Ahora, la diferencia del puntaje global de 2021 don respecto a 2020 de las IED por categoría.

  1. IEDs de categoría A+ y A
  1. IEDs de egoría B cat
  1. IEDs de categoría C
  1. IEDs de categoría D

Distribución puntaje global por categoría

plot_10<-ggplot(data=sim_130IED_2, mappin= aes(x=pg_s2021, fill=categ))+
geom_histogram(bins = 10, alpha=0.5, color="white")+  
theme(panel.background = element_rect(fill = 'white', colour = 'white'))+ 
scale_fill_manual(values=c("darkgreen","green", "yellow", "orange","red"),
labels=c("A+","A", "B", "C", "D")) +
labs(title = "Distribución Puntaje global", y="Número de IEDs",x="Puntaje global 2021", fill="Categoría", caption= "Fuente: SED con datos ICFES")

ggplotly(plot_10)

Distribución puntaje global por programa de focalización

plot_11<-ggplot(data=sim_130IED_2, mappin= aes(x=pg_s2021, fill=Focalización))+
geom_histogram(bins = 10,alpha=0.5, color="white")+ 
theme(panel.background = element_rect(fill = 'white', colour = 'white'))+        
  labs(title = 'Distribución Puntaje global', y='Número de IEDs',x='Puntaje global 2021', caption= "Fuente: SED con datos ICFES")
ggplotly(plot_11)